home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Utilities / Text and Speech / Alpha.5.81 / Tcl / SystemCode / method.tcl < prev    next >
Text File  |  1994-04-24  |  343b  |  18 lines
  1. #================================================================================
  2.  
  3. set mpos("") ""
  4.  
  5. proc markFile {} {
  6.     global mode
  7.  
  8.     case $mode in {
  9.         "C" {return [cMarkFile]}
  10.         "TeX" {return [texMarkFile]}
  11.          "C++" {return [c++MarkFile]}
  12.         "Csh" {return [cshMarkFile]}
  13.         "Tcl" {return [tclMarkFile]}
  14.         "BRWZ" {return [browseMarkFile]}
  15.     }
  16. }
  17.  
  18.